home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 2 / Dark_Star_02_1995_-_de_Side_B.d64 / dumme fragen! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  77 lines
  1. 255 poke53280,0:poke53281,0:poke646,2:print"[147]"
  2. 260 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  3. 265 print"[180]                                      [170]";
  4. 270 print"[180]         [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]         [170]";
  5. 275 print"[180]         [194]    rate mal!!    [194]         [170]";
  6. 280 print"[180]         [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]         [170]";
  7. 285 print"[180]                                      [170]";
  8. 290 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]":print:print:print:print:print
  9. 295 n=7:t=0
  10. 300 dima(n):forj=1ton:a(j)=j:nextj:
  11. 305 print"   [156]drueck                     return!  [144]";:inputs:s=s  :
  12. 310 fori=1ton:q=(s+3.14159265)^3:s=q-int(q)
  13. 315 print"[158][145]     >>>>>    es geht los!    <<<<<     ";
  14. 320 j=int(s*n+1):p=a(i):a(i)=a(j):a(j)=p:next i
  15. 325 print"[147][129]wieviel fragen?  hoechstens: [152]";n;:inputm:print
  16. 330 ifm>nthen325
  17. 335 fori=1tom:print"[158]frage nr. ";i:j=a(i):print
  18. 340 if j= 7then345
  19. 345 onj gosub390,425,460,495,530,565,600  :goto350
  20. 350 print"[152]waehle antwort a, b, c oder d";:inputy$:
  21. 355 ifz$<>y$thenprint"[147]falsche antwort!":goto365:
  22. 360 print"[147]        r i c h t i g ![146]":d=d+1:print
  23. 365 print"[149][164][175][185][162][162][185][175][164][164][175][185][162][162][185][175][164][164][175][185][162][162][185][175][164][164][175][185][162][162][185][175][164][164][175][185][162][162][185][175][164]";
  24. 370 print:print:nexti
  25. 375 print"  na ja,        ";d;"  richtige":print
  26. 380 print"[155]  und           ";m-d;"  falsch!":print
  27. 385 print" das gesamtergebnis=  ";d/(i-1)*100;"%":end
  28. 390 z$="c":
  29. 395 print"[154] kaese ist ="
  30. 400 print"[153]a: ein odeur par excellence"
  31. 405 print"b: ein pendant zum faulen ei"
  32. 410 print"c: synonym fuer 'so ein mist'"
  33. 415 print"d: etwas, das gerollt wurde"
  34. 420 return
  35. 425 z$="b"
  36. 430 print"[154] zitronen sind ="
  37. 435 print"[153]a: etwas falsche antik) mutanten"
  38. 440 print"b: handelsware der pechvoegel"
  39. 445 print"c: aus dem lauf gezogene patronen"
  40. 450 print"d: angefangene schmetterlinge"
  41. 455 return
  42. 460 z$="d"
  43. 465 print"[154] ein 'nichts' ist ="
  44. 470 print"[153]a: unendlichkeit zum 'reinfallen"
  45. 475 print"b: 'ne fehlerhafte weibliche verwandte"
  46. 480 print"c: knoblauch ohne echten duft"
  47. 485 print"d: ein luftballon ohne pelle"
  48. 490 return
  49. 495 z$="b"
  50. 500 print"[154] eine klapperschlange ist =":
  51. 505 print"[153]a: eine art vogelscheuche"
  52. 510 print"b: pferdeschreck im wilden westen"
  53. 515 print"c: handwerks-zubehoer"
  54. 520 print"d: eine klapper hinter der anderen..."
  55. 525 return
  56. 530 z$="c"
  57. 535 print"[154] netze sind = "
  58. 540 print"[153]a: was zum 'ueberziehen'"
  59. 545 print"b: produkte von spinnern"
  60. 550 print"c: zusammengeknotete loecher"
  61. 555 print"d: verkleidete fallstricke"
  62. 560 return
  63. 565 z$="c"
  64. 570 print"[154] knete ist = "
  65. 575 print"[153]a: massage ohne 'n'"
  66. 580 print"b: was man nie genug hat"
  67. 585 print"c: gehirn-surrogat"
  68. 590 print"d: schoepfungs-grundstoff"
  69. 595 return:
  70. 600 z$="c"
  71. 605 print"[154] ein magnet ist ="
  72. 610 print"[153]a: ein zugpferd-verwandter"
  73. 615 print"b: teil des nordpols"
  74. 620 print"c: 'mag nicht' (z. b. in bayern)"
  75. 625 print"d: fast ein maechtiger mann"
  76. 630 return
  77.